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EDISFINDKEY = find a key's definition 16-Sep- 1384 90: $4 66 VAX=11 Bliss-32 V4.0-7 Page 1 
1e-Sep- 19 3: DISKSVMSMASTER: ceo Ske F INDKEY.BLI;1 (1) 
rs 0001 0 XTITLE "EDTSFINDKEY = find a key''s definition' 
; ¢ itd MODULE EDTSFINDKEY ( ! Find a key's definition | 
; 000 IDENT = ‘v04-000' ! File: FINDKEY. BL Edit: JBS1002 | 
: 4 0004 0 )s 
Ret po0g | NN | 
: said : i eee eeeeeeeeeeeeeeeReReeeeneeeeeeeeeeeeeeeeeeeeereeeeeeeneneeneeeeeeeeeeeener 
: ie « 
; 9 0009 1 !* COPYRIGHT (c) 1978, 1980, 1982, 4 BY * 
: 10 0010 1 !* DIGITAL EQUIPMENT CORPORATION, MAYHARD. MASSACHUSETTS. * 
; \} Bats : :* ALL RIGHTS RESERVED. * 
: .* * 
: ig $018 1 !* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
; 0014 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
ae 0015 1 !« INCLUSION OF ae ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
: 16 0016 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
: 17 0017 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
: Hs id : ta TRANSFERRED. * 
; ' e 
; 20 0020 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
; 21 0021 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
; $8 boss i :* CORPORATION. . 
: i‘ 
; cu 0024 1 !* DIGITAL ASSUMES NO-RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS’ * 
: 25 0025 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
2-2 B08 1 !e * 
, 2 0027 1 !* * | 
: 28 0028 #1 PITITITILI LILLIE LLL LLL iLL iiiiiiiiiiiiiiiiiie 
; «ee 0029 1! 
: » 0030 1 
; Ft 0031 1 !++ ; 
; itt) 1! FACILITY: EDT -- The DEC Standard Editor 
Py 33 003 1 i 
; 0034 1 ! ABSTRACT: 
; 2 0035 1! A 
: $9 boas . Find a key's definition. | 
: 3 st : ENVIRONMENT: Runs at any access mode - AST reentrant 
; 40 0040 1 AUTHOR: John Sauter, CREATION DATE: August 13, 1982 | 
: 4g 0042 MODIFIED BY: | 
: Gh 0044 1 ' 1-001 - Original. JBS 13-Aug-1982 | 
: «645 0045 1! 1-002 - Dont store into the argument List. JBS 10-Nov-1982 
; «646 0046 : 4 in 
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EDTSFINDKEY = find a key's definition ihese -1984 00:24: VAX=-11 Bliss-32 V4.0-74 Page 2. 
Declarations . 12-8 08- 1 3be 99:33:68 ST EKSUMGHASTERSCEDT SRCTRINDKEY-BLI:1 . (2). 
048 1 XSBTTL 'Declarations’ 
049 1! 
050 1 ! TABLE OF CONTENTS: 
0051 1! 
0052 #1 
005 REQUIRE 'EDTSRC: TRAROUNAM'; 
0493 1 FORWARD ROUTINE 
0494 1 EDTSSFIND_KEY; ! Find a key's definition 
0495 1 
0496 1! | 
0497 1°! INCLUDE FILES: 
0496 1! 
0499 1 | 
050 REQUIRE "EDTSRC:EDTREQ'; 
0636 1 LIBRARY "EDTSRC:KEYPADDEF'; 
0637 1 
0638 1! 
0639 1 ! MACROS: 
0640 1! 
0641 1! NONE 
0642 1! 
0643 1 ! EQUATED SYMBOLS: 
0644 1! | 
0645 1! NONE 
0646 1! 
0647 1 !' OWN STORAGE: 
0648 1! 
0649 1! NONE 
0650 1! 
0651 1 ' EXTERNAL REFERENCES: 
0652 : 


In the routine 
| 
| 
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EDTSF INDKEY EDTSFINDKEY = find a key's definition 16-Sep-1984 00:24: VAX-11 Bliss-32 V4.0-74 Page 3. 
Ou-000 EDTSSFIND_KEY = find a hey's definition 13288-1382 99:59:65 DL EKSVMGMASTERSCEDT  SRCSFINDKEY.BLIs1 . (3) | 
; He 635 } ZSBITL ‘EDTSSFIND_KEY = find a key''s definition’ 
; BS 6 § 1 GLOBAL ROUTINE EDTSSFIND_KEY (¢ ! Find a key's definition 
3 657 1 KEY, ! Key number 
; 658 1 KEY_PTR ! Pointer to key definition 
; 659 1 d= 
; 660 1 
an 2 661 1 !+4+ 
: 2 bees ! FUNCTIONAL DESCRIPTION: 
; «494 664 1! Find the definition of a key in the key definition table. Return that | 
; 32 red } definition or an indication that the key is not defined. 
3 } 
; 97 0667 1 | FORMAL PARAMETERS: 
; 0668 1! : | 
: 190 +a} : KEY The number of the key whose definition is to be found 
; 101 0671 1! KEY_PTR Pointer to the key's definition 
; 10 0672 1! 
s 7 0675 1 =! IMPLICIT INPUTS: 
> 104 0674 1! 
; 105 0675 1! EDTSS$A_TRN_TBL 
: 106 0676 1! 
: 107 0677 1 | IMPLICIT OUTPUTS: 
; 108 0678 1 | | 
: 109 0679 1! NONE 
: 110 0680 1! | 
3111 0681 1 ! ROUTINE VALUE: 
: 112 0682 1! ; 
: 305 0683 1! 1 = key found, KEY_PTR points to its definition | 
> (114 0684 1! 0 = no definition for this key 
3 6115 0685 1! 
s 196 0686 1 ! SIDE EFFECTS: 
3 (117 0687 1! 
; 118 0688 1! NONE 
3 6119 0689 1! 
: 120 0690 1 !-- 
: 121 0691 1 
: \s¢ 069 § BEGIN 
s ve 069 
> 124 0694 § MAP 
3 \$3 peas KEY_PTR : REF BLOCK C, BYTE) FIELD (KEY_DEF_FIELD); 
$127 69 3 EXTERNAL ; eed 
3 1<8 R208 EDTSSA_TRN_TBL : VECTOR CK_KPAD_HASHS1I71: ! Table of pointers to key definitions | 
3 18 700 LOCAL 
3s 131 701 L_KEY, 
8 138 070 L-KEY_PTR : REF BLOCK C, BYTE) FIELD (KEY_DEF_FIELD), 
. 070 KEY_FOUND; 
3 «134 0704 
3 (135 705 L_KEY = .KEY; 
; (136 706 ASSERT ((.L_KEY LSS K_KEY_MAX) AND (.L_KEY GEQ 0)); 
> 137 107 L_KEY_PTR = EDTSSA_TRR_TBL C.L_KEY MOD"K_KPAD_HASHS1Z); 
3; «138 708 KEY_FOUND = 0; 
3; «4139 0709 
; 140 0710 WHILE ( NOT .KEY_FOUND) DO 


EDTSF INDKEY EDTSFINDKEY = find a key's definition 15 Ae -1984 VAX-11 Bliss-32 V4.0-7 4 
704-000 EDTSSFIND.KEY - find a key's definition 235p- 138s 93:35:69 DESKSUMGHASTERCCEBT  SACSFINDKEY.eLI:1°%° (34. 
> 161 711 BEGIN 
$ 106 ar LLKEY_PTR = .L_KEY_PTR CKEY_DEF_NEXTI; 
: 144 O71 IF (.LKEY_PTR EQLA 0) THEN RETURN (0); 
: 146 O76 IF (.LLKEY_PTR CKEY_DEF_KEY] EQL .L_KEY) THEN KEY_FOUND = 1; 
: 148 O7i8 ASSERT ((.LLKEY MOD K_KPAD_HASHSIZ) EQL (.L_KEY_PTR CKEY_DEF_KEY] MOD K_KPAD_HASHSIZ)); 
: 150 0720 
> 151 0721 KEY PTR .L_KEY_PTR; 
: 138 07 ¢ RETURN { ); 
: 15 07 END; ! of routine EDTS$SFIND_KEY 
.TITLE EDTSFINDKEY EDTSFINDKEY - find a key's definiti 
. .IDENT \V04=000\ 
.EXTRN EDTSSA_TRN_TBL, EDTSSINTER_ERR 
.PSECT _EDTSCODE,NOWRT, SHR, PIC,2 
007C 00000 ENTRY EDTSSFIND KEY. Seve R2,R3,R4,R5,R6 3 0656) 
56 000000006 00 9E 00002 MOVAB EDTSSINTER_ERR, R6 ; 
55 04 AC DO 00009 MOVL KEY, L_KEY : 0705. 
000003E7 8F 35 D1 00000 CMPL = L_KEY, “#999 ; 0706 | 
04 18 00014 BGEQ ~=«:sd1$ : | 
55 D5 00016 TSTL  L_KEY : 
03 18 00018 BGEQ $ ; | 
66 00 FB OOO1A 1$: CALLS #0, EDTSSINTER_ERR : 
7E 00 55 01 7A 0001D 2$: EMUL L_KEY =(SP) : 0707 | 
53 53 BE 000000C7 8F 78 00022 EDIV #199,~(SP5+, R3, R : 
52 0000000060043 DE 000¢8 MOVAL EDTS$A_TRN eae L_KEY_PTR : 
54 D4 000 CLRL —«KEY_F FOOND ~ : 0708 
2c 54 £8 00035 3$ BLBS KEY F OUND : 0710 
52 62 DO 00038 MOVL L_REY UstaD . _KEY_PTR > 0712 
2F 13 0003B BEQL : 0714 
55 04 A2 10 00 €D 0003p CMPZ7V #0, #16, 4(L_KEY_PTR), L_KEY : 0716 
03 is 00043 BNEQ 4$ 3 
54 01 0045 MOVL #1, KEY_FOU : 
50 04 A2 3¢ 0048 4$ MOVZWL acl KENT “pin. i : 0718. 
a5 08 | ES Ea SCR tho ae! ae Las 
f ef of Eh CMPL  —-R3, RO : 
D6 13 0005D BEQL : 
of 00 FB 0005F CALLS #0, EDTSSINTER_ERR ; 
D1 11 90062 BRB : 0710 | 
08 BC 52 DO 00064 5$ MOVL L_KEY_PTR, @KEY_PTR : O72 
50 01 00 90068 MOVL T, RO : 0722 | 
04 00068 RET 3 
50 04 0006C 6$ CLRL ~— RO > 0723. 
04 0006E RET 3 
; Routine Size: 111 bytes, Routine Base: _EDTSCODE + 0000 
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EDTSF INDKEY EDTSFINDKEY = find a key's definition 16-50 Sep-1984 VAX-11 Bliss-32 V4.0-74 Page 6 

iba 7000 EDTSSFIND_KEY = find a hey's definition =3007 138% 99: $4: 5 DISKSVMSMASTER:CE 134 SRCSFINDKEY.BLI:1 . (4) 

s 157 7 1 END ! of module EDTSFINDKEY 

: 138 0737 1 > 

; 199 0728 0 ELUDOM 

; PSECT SUMMARY 

; Name Bytes Attributes 

: -EDTSCODE 111 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 

$ Library Statistics 

: ecccccece Symbols -------- Pages Processing 

s File Total Loaded Percent Mapped Time 

: _$255$DUA28:CEDT.SRCJEDT.L32;1 377 1 0 40 00:00.2 

3 ~$255$DUA28:CEDT.SRCJPSECTS.L32;1 2 1 50 7 00:00. } 

3 ~$255$DUA28:CEDT.SRCIKEYPADDEF .L32;1 34 7 20 7 00:00.1 

3 COMMAND QUALIFIERS 

: CLES LEME CE OST AULD, SULT EAL OPT EMESIS /MGIRACEDACEAL LSA 190 oF PROERT POROUS SOT? HONEY MSRC$:F INDKEY.BLI/UPDATE=(ENHS:F INDKEY 
Size: 111 code + 0 data bytes 
Run Time: 00:11.6 


Elapsed Time: 00:31.1 
Lines/CPU Min: 3768 
Lexemes/CPU-Min: 11792 
Memory Used: 75 pages 
Compication Complete 
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